home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 2 / Amiga Tools 2.iso / tools / jade / src / amiga_defs.h < prev    next >
C/C++ Source or Header  |  1995-03-09  |  2KB  |  66 lines
  1. /* amiga_defs.h -- declarations for AmigaDOS
  2.    Copyright (C) 1993, 1994 John Harper <jsh@ukc.ac.uk>
  3.  
  4.    This file is part of Jade.
  5.  
  6.    Jade is free software; you can redistribute it and/or modify it
  7.    under the terms of the GNU General Public License as published by
  8.    the Free Software Foundation; either version 2, or (at your option)
  9.    any later version.
  10.  
  11.    Jade is distributed in the hope that it will be useful, but
  12.    WITHOUT ANY WARRANTY; without even the implied warranty of
  13.    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14.    GNU General Public License for more details.
  15.  
  16.    You should have received a copy of the GNU General Public License
  17.    along with Jade; see the file COPYING.    If not, write to
  18.    the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
  19.  
  20. #ifndef _AMIGA_DEFS_H
  21. #define _AMIGA_DEFS_H
  22.  
  23. #include <exec/lists.h>
  24. #include <clib/exec_protos.h>
  25. #include <dos/dosextens.h>
  26. #include "amiga_windowsys.h"
  27.  
  28. /* Since the Amiga has static stacks and my Lisp goes deep into
  29.    the stack, some checking is order...  */
  30. #define MINSTACK    2048
  31. #define GC_MINSTACK 256        /* give gc more chance of succeeding */
  32. #define STK_SIZE    stksize()
  33. #define STK_WARN(s) ami_ezreq("%s: Almost out of stack!", "Stop", (long)s)
  34.  
  35. #define AMIGA_V39 (AMIGA_INCLUDE_VER >= 39)
  36.  
  37. #if AMIGA_V39
  38. # define SET_WRITE_MASK(rp,m) SafeSetWriteMask(rp,m)
  39. #else
  40. # define SET_WRITE_MASK(rp,m) SetWrMsk(rp,m)
  41. #endif
  42.  
  43. /* default directory to look for scripts in */
  44. #define LISP_LIB_DIR "JADE:lisp/"
  45.  
  46. /* file containing doc-strings */
  47. #define DOC_FILE "JADE:DOC"
  48.  
  49. /* standard font */
  50. #define DEFAULT_FONT "topaz.font"
  51. #define DEFAULT_FONT_SIZE 8
  52.  
  53. /* Timeout length. This determines how much time with no events received
  54.    is needed before looking for buffers which are due to be auto-saved.  */
  55. #define EVENT_TIMEOUT_LENGTH 1
  56.  
  57. /* Interrupt testing.  Test for the signal bit inline, the interrupt
  58.    handler knows to clear it properly.  */
  59. #define TEST_INT \
  60.     do { \
  61.     if(ami_jade_process->pr_Task.tc_SigRecvd & SIGBREAKF_CTRL_C) \
  62.          ami_interrupt_handler(); \
  63.     } while(0)
  64.  
  65. #endif /* _AMIGA_DEFS_H */
  66.